home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 - Homepage / CHIP.BIN / share / webmaste / csehtmlp / csehtmlp.exe / {app} / ParserRules / fortran.xs < prev    next >
Encoding:
Text File  |  2002-04-22  |  6.1 KB  |  176 lines
  1. //Language: Fortran
  2. //Copyright (c) 1992-2002 Altium Limited             
  3. //All rights reserved.                               
  4. //http://www.dream-com.com                           
  5. //contact@dream-com.com                              
  6.  
  7. // states
  8. State=snormal
  9. State=sstring1
  10. State=sstring2
  11. State=scomment1
  12. State=scomment2
  13. State=sdirective
  14. // tokens
  15. Token=tnone
  16. Token=tstring
  17. Token=tcomment
  18. Token=tident
  19. Token=tinteger
  20. Token=tfloat
  21. Token=tresword
  22. Token=tassembler
  23. Token=turl
  24. Token=twhitespace
  25. Token=tdirective
  26. //delims
  27. Delimiters=;.,:'"{}[]()?!@#$%^&*-+=|\/
  28.  
  29. // reswords
  30. // statements
  31. snormal 'ALIAS'       snormal tresword
  32. snormal 'ALLOCATE'    snormal tresword
  33. snormal 'ASSIGN'      snormal tresword
  34. snormal 'AUTOMATIC'   snormal tresword
  35. snormal 'BACKSPACE'   snormal tresword
  36. snormal 'BLOCK'       snormal tresword
  37. snormal 'BYTE'        snormal tresword
  38. // snormal 'C'           snormal tresword
  39. snormal 'CALL'        snormal tresword
  40. snormal 'CASE'        snormal tresword
  41. snormal 'CHARACTER'   snormal tresword
  42. snormal 'CLOSE'       snormal tresword
  43. snormal 'COMMON'      snormal tresword
  44. snormal 'COMPLEX'     snormal tresword
  45. snormal 'CONTINUE'    snormal tresword
  46. snormal 'CYCLE'       snormal tresword
  47. snormal 'DATA'        snormal tresword
  48. snormal 'DEALLOCATE'  snormal tresword
  49. snormal 'DIMENSION'   snormal tresword
  50. snormal 'DO'          snormal tresword
  51. snormal 'DOUBLE'      snormal tresword
  52. snormal 'ELSE'        snormal tresword
  53. snormal 'END'         snormal tresword
  54. snormal 'ENDFILE'     snormal tresword
  55. snormal 'ENTRY'       snormal tresword
  56. snormal 'EQUIVALENCE' snormal tresword
  57. snormal 'EXIT'        snormal tresword
  58. snormal 'EXTERNAL'    snormal tresword
  59. snormal 'FORMAT'      snormal tresword
  60. snormal 'FUNCTION'    snormal tresword
  61. snormal 'GOTO'        snormal tresword
  62. snormal 'IF'          snormal tresword
  63. snormal 'IMPLICIT'    snormal tresword
  64. snormal 'INCLUDE'     snormal tresword
  65. snormal 'INQUIRE'     snormal tresword
  66. snormal 'INTEGER'     snormal tresword
  67. snormal 'INTRINSIC'   snormal tresword
  68. snormal 'LOCKING'     snormal tresword
  69. snormal 'LOGICAL'     snormal tresword
  70. snormal 'MAP'         snormal tresword
  71. snormal 'NAMELIST'    snormal tresword
  72. snormal 'OPEN'        snormal tresword
  73. snormal 'PARAMETER'   snormal tresword
  74. snormal 'PAUSE'       snormal tresword
  75. snormal 'PRECISION'   snormal tresword
  76. snormal 'PRINT'       snormal tresword
  77. snormal 'PROGRAM'     snormal tresword
  78. snormal 'READ'        snormal tresword
  79. snormal 'REAL'        snormal tresword
  80. snormal 'RECORD'      snormal tresword
  81. snormal 'REFERENCE'   snormal tresword
  82. snormal 'RETURN'      snormal tresword
  83. snormal 'REWIND'      snormal tresword
  84. snormal 'SAVE'        snormal tresword
  85. snormal 'SELECT'      snormal tresword
  86. snormal 'STDCALL'     snormal tresword
  87. snormal 'STOP'        snormal tresword
  88. snormal 'STRUCTURE'   snormal tresword
  89. snormal 'SUBROUTINE'  snormal tresword
  90. snormal 'TO'          snormal tresword
  91. snormal 'UNION'       snormal tresword
  92. snormal 'VALUE'       snormal tresword
  93. snormal 'VARYING'     snormal tresword
  94. snormal 'WHILE'       snormal tresword
  95. snormal 'WRITE'       snormal tresword
  96. //directives
  97. snormal 'ALIAS'       snormal tresword
  98. snormal 'ATTRIBUTES'  snormal tresword
  99. snormal 'DECLARE'     snormal tresword
  100. snormal 'DEFINE'      snormal tresword
  101. snormal 'DEFINED'     snormal tresword
  102. snormal 'ELSE'        snormal tresword
  103. snormal 'ELSEIF'      snormal tresword
  104. snormal 'ENDIF'       snormal tresword
  105. snormal 'FIXEDFORMLINESIZE' snormal tresword
  106. snormal 'FREEFORM'    snormal tresword
  107. snormal 'IDENT'       snormal tresword
  108. snormal 'IF'          snormal tresword
  109. snormal 'INTEGER'     snormal tresword
  110. snormal 'MESSAGE'     snormal tresword
  111. snormal 'NODECLARE'   snormal tresword
  112. snormal 'NOFREEFORM'  snormal tresword
  113. snormal 'NOSTRICT'    snormal tresword
  114. snormal 'OBJCOMMENT'  snormal tresword
  115. snormal 'OPTIONS'     snormal tresword
  116. snormal 'PACK'        snormal tresword
  117. snormal 'PSECT'       snormal tresword
  118. snormal 'REAL'        snormal tresword
  119. snormal 'STRICT'      snormal tresword
  120. snormal 'SUBTITLE'    snormal tresword
  121. snormal 'TITLE'       snormal tresword
  122. snormal 'UNDEFINE'    snormal tresword
  123. //logical
  124. snormal \.AND\.       snormal tresword
  125. snormal \.EQ\.        snormal tresword
  126. snormal \.EQV\.       snormal tresword
  127. snormal \.FALSE\.     snormal tresword
  128. snormal \.GT\.        snormal tresword
  129. snormal \.LT\.        snormal tresword
  130. snormal \.NEQV\.      snormal tresword
  131. snormal \.NOT\.       snormal tresword
  132. snormal \.OR\.        snormal tresword
  133. snormal \.TRUE\.      snormal tresword
  134. snormal \.XOR\.       snormal tresword
  135. // numbers
  136. snormal [1-9][0-9]*                            snormal  tinteger
  137. snormal \#[0-9A_F]+                            snormal  tinteger
  138. snormal [1-9][0-9]*\.[0-9]*                    snormal  tfloat
  139. snormal [1-9][0-9]*{\.[0-9]+}|e{[\+\-]}|[0-9]+ snormal  tfloat
  140.  
  141. //idents
  142.  
  143. snormal   [a-z_A-Z][a-z_A-Z0-9]*  snormal   tident
  144.  
  145. //comments
  146. snormal    \!                       scomment1 tcomment
  147. scomment1  [#1-#255]*               snormal   tcomment
  148. scomment1 $                         snormal   tcomment
  149.  
  150. snormal    c[^a-z_A-Z0-9]           scomment2 tcomment
  151. scomment2  [#1-#255]*               snormal   tcomment
  152. scomment2  $                        snormal   tcomment
  153.  
  154.  
  155. //white space
  156. //snormal #32*                      snormal   twhitespace
  157.  
  158. //strings
  159. snormal    \"                     sstring1   tstring
  160. sstring1   [^\"]*                 sstring1   tstring
  161. sstring1   \"                     snormal    tstring
  162. sstring1   \"\"                   sstring1   tstring
  163. sstring1   $                      snormal    tstring
  164. //
  165. snormal    \'                     sstring2   tstring
  166. sstring2   [^\']*                 sstring2   tstring
  167. sstring2   \'                     snormal    tstring
  168. sstring2   \'\'                   sstring2   tstring
  169. sstring2   $                      snormal    tstring
  170.  
  171. //directives
  172.  
  173. snormal  \$                       sdirective tdirective
  174. sdirective [#1-#255]*             snormal    tdirective
  175. sdirective $                      snormal    tdirective
  176.